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DECLARATION AND POWER OF ATTORNEY 

As the below-named inventor, I declare that I am the original, first, and sole inventor of the 
subject matter which is claimed in the patent application identified below and for which a patent 
is sought on the invention as titled therein. I hereby state that I have reviewed and understood 
the contents of said specification, including the claims. I acknowledge the duty to disclose 
information which is material to the examination of this application in accordance with 37 C.F.R. 
§ 1.56(a). 



Inventor: 
Address: 

Residence: 
Citizenship: 



Sajid Ahmed 

P.O. Box 153 

La Canada, CA 91012 

La Canada, California, USA 

USA 



Title of Invention: SYSTEM AND METHOD FOR DECISION MAKING 



Serial No.: to be assigned, filed on January 8, 2001 

[ There are no earlier-filed United States Patent Applications of which priority benefit is 
claimed. 

[ x| I hereby claim the benefit under 35 U.S.C. § 120 of the United States Patent Application 
listed below, and, insofar as the subject matter of the claims of this application is not 
disclosed in the prior United States application in the manner provided by the first 
paragraph of 35 U.S.C. § 1 12, 1 acknowledge the duty to disclose material information as 
defined in 37 C.F.R. § 1.56(a) which occurred between the filing date of the prior 
application and the filing date of this application: 

USSN: Filed: Status: 



60/175,106 



06 January 2000 



pending 



\\SEA_ABBOTTVDOCS\DOCS\53296\2\Declaration&Power.doc 
Seattle 



POWER OF ATTORNEY 

The power to prosecute this application and transact all business in the Patent and Trademark 
Office connected herewith is hereby granted to the following attorneys: 

Todd M. Becker, Registration No. 43,487 

Vita Conforti, Registration No. 39,639 
Barry L. Davison, Registration No. 47,309 

Please send all correspondence to: 

Barry L. Davison 
Davis Wright Tremaine LLP 
2600 Century Square 
1501 Fourth Avenue 
Seattle, WA 98101-1688 
Telephone: (206)628-7621 
Facsimile: (206) 628-7699 

I further declare that all statements made herein of my own knowledge are true and that all 
statements made on information and belief are believed to be true; and further that these 
statements are made with the knowledge that willful false statements and the like so made are 
punishable by fine or imprisonment, or both, under Section 1001 of Title 18 of the United States 
Code, and that such willful false statements may jeopardize the validity of the application or any 
patent issuing thereon. 

Signature of Inventor: Date signed: 

Sajid Ahi^Sia 
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Appendix A 



#!/usr/bin/perl -w 

Shtmljitle = $0; 
Shtmljitle =- s/.*V(\w+)$/$1/; 
$cgi_name = Shtmljitle; 
Shtmljitle =- s/_//g; 

$[=1; 
Sdebug = 0; 

Sanswercookiename = "chaincookie"; 
Sanswercookiefilter = "[-0123456789:.]+"; 
Slevelcookiename = "chainlevel"; 
@questions__2b_asked = (); 

($num_questions,$num_conditions 1 $maxJevel) = read_dat_file(); 

if (Sdebug) { addbody("# questions=$num_questions, # conditions=$num_conditions, max 

lvl=$maxjevel<br>\n"); } 

($first_unanswered_question,$level) = get_stateJrom_cookie($num_questions); 

if (Sdebug) { addbody("get_stateJrom_cookie:first=$first_unanswered_questionJevel=$level<br>\n");} 

update_stateJromJorm(); 

Snew answercookie = join(": n , ©answers); 
Snewjevelcookie = $level+1; 
if ( Sdebug ) { 

addbody( M newJevel=$newJevelcookie\n<br>"); 

addbody("new answer cookie = $new_answercookie\n M ); 

if ( Snew answercookie =- /Sanswercookiefilter/ ) { 
addbody("new_answercookie passed filtertn"); 

} 

} 

if (Sdebug) { addbody("\n\n\n"); } 

if (Slevel > Smaxjevel) { 
while ((Sdiag, Sfactorjist) = each %condition) { 
if ( Sdebug ) { addbody("$diag (has factors $factor_list)<br>\n"); } 
©factors = split(',\ Sfactorjist); 

if ( Sdebug ) { addbody("$#factors items in \@factors<br>\n n ); } 
Sscore = 0; $max = 0; $num_answers=0; 
foreach Sfactor (©factors) { 
($question,$weight) = Sfactor =- /q(\d+)=(\d+\.*\d*)/; 
$max = $max + Sweight; 
if ( $answers[$question] > 0 ) { 
Sscore = Sscore + ( Sweight * $answers[$question] ); 
$num_answers++; 

} 

Sanswer = $answers[$question]; 

if ( Sdebug ) { addbody(" pondering Squestion Sweight. It was V'Sanswert" so new score = 
$score<br>\n n ); } 
$question++; 

} 
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if ( $num_answers==0 ) { $num_answers=1; } 
$score = int( $score / $num_answers * 100) / 100; 
if ( $debug ) { addbody( n final score = Sscore ($max max)\n n ); } 

$a{$diag} = $score; 
$question++; 

} 

if ( $debug ) { print "\n"; } 

@unsorted = (); 

foreach Sdiag (keys(%a)) { 

$url = Sdiag; 

$url =- s/[ V]/_/g; 

$url sO'g; 

$url = "http://adsl-63-1 94-251 -2.dsl.lsan03.pacbell.net/igotpain/$cgi_name/$url.html"; 
©unsorted = ( "$a{$diag}\t\t<a href=\"$url\ n TARGET=\ M reference\">$diag</a>\n n 1 @unsorted ); 

} 

if ( $debug ) { addbody("</PRE>\n"); } 

addbody("<PRE>\n"); 

addbody( "% Possibility\tCondition\n"); 

addbody(reverse(sort sortdiags @unsorted)); 

addbody("</PRE>\n"); 

if ( $debug ) { addbody("</PRE>\n"); } 

addbody("(Back to <A HREF=\7igotpain/welcome.html\" TARGET^referenceV^vitruvian man</A>)"); 
if ( $debug ) { addbody("<PRE>\n n ); } 
$new_answercookie = ""; 
$new_levelcookie = ""; 

} 

else { # ask another set of questions 
if (Sdebug) { addbody("</PRE>\n"); } 

addbody("<FORM method=\"POST\" action=\7cgi-bin/igp/$cgi_name\">\n"); 
@questions_2b_asked = build_question_list($level, $max_level, $first_unanswered_question, 
$num_questions); 
$new_answercookie = join(":", ©answers); 
$new_levelcookie = $level+1; 
if ( $debug ) { 

addbody( n newJevel=$new_levelcookie, old_level=$level\n<br> M ); 
addbody("new answer cookie = $new_answercookie\n"); 
if ( $new_answercookie =~ /($answercookiefilter)/ ) { 
addbody("new_answercookie passed filtertn"); 

} 

} 

$current_header = ""; 

foreach $qdata (@questions_2b_asked) { 

(Sqnum.SleveLSdepend^help^ef.Squestion.Sqheader) = split( ,, xyzzy",$qdata); 

if ( $current_header ne $qheader ) { 
$current_header = Sqheader; 

addbody("<TABLE BGCOLOR=\ n #A0A0A0\ n ><TR><TD ALIGN=\"LEFT\" 
COLSPAN=2><H2>$current_header</H2x/TD><rTR>\n n ); 
} 

addbody("<TR>\n"); 

addbody(get_question_html( n q$qnum ,, t $question,$help_ref 1 "no")); 
addbodyC^yTR^n"); 

} 

addbody("<n"ABLE>\n"); 

addbody("<input type=\"submit\" value=\"Proceed\ n >\n"); 
addbody( M <input type=\ M reset\ M >\n M ); 




47 



# # 

addbody( n </FORM>\n n ); 

if ($debug) { addbody( n <PRE>\n n ); } 

} 

sub sortdiags { 
($aa) = split("\t",$a); 
($bb) = split("\r,$b); 
#$aa = sprintf( n %3.4d",$aa); 
#$bb = sprintf("%3.4d",$bb); 
($aa<=>$bb) 

} 

############ 
### do the printout 
############ 

&printheader($new_answercookie,$newJevelcookie); 

printhtml(); 

exit 0; 

#xxxxxxxxx 

sub build_question_list { 
local ($last_lev, $max_lev, $first_q, $last_q) = @_; 
local ($qlevel,$qdepend,$dep_qnum,$dep_answer); 

@qlist = (); 

if ($debug) { addbody("in build_question_list(last=$last_lev, max^SmaxJev, first=$first_q, 
last=$last_q)\n<br> M ); } 
foreach $qnum ( $first_q..$last_q ) { 
if ( $answers[$qnum] != -1 ) { 
if ($debug) { addbody("q#$qnum skipped<br>\n");} 
next; 

} 

($iqnum,$qlevel,$qdepend) = split("xyzzy",$q[$qnum]); 

if ($debug) { addbody("qnum = $iqnum($qnum); qlevel = $qlevel; qdepend = $qdepend<br>\n"); } 
($dep_qnum 1 $dep_answer) = Sqdepend =- /(\d+)([+-]*)/; 
if ( $dep_answer =~ A+/ ) { $dep_answer = "1"; } 
if ( $dep_answer =- /-/ ) { $dep_answer = "0"; } 

if ($debug) { addbody("answers[$dep_qnum]=$answers[$dep_qnum], dep_qnum=$dep_qnum, 
dep_answer=$dep_answer<BR>\n"); } 
if ( $qlevel == $last_lev ) { 
if ( $dep_qnum == 0 || $answers[$dep_qnum] == $dep_answer ) { 
push(@qlist,$q[$qnum]); 
if ($debug) { addbody("pushed $q[$qnum]\n"); } 

} 

} 

} 

if ( $debug ) { 
addbody( n build_question_list = \n"); 
foreach $line (@qlist) { addbody( n $line\n"); } 

} 

@qlist; 
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sub update_state_from_form { 
$n = <>; 

$n = nn unless ($n); 

if ( $debug ) { addbody( "STDIN: $n\n<br>"); } 
@question_answer = split(/&/, $n); 
foreach ( @question_answer ) { 
if ( $debug ) { addbody( n $_ : "); } 
if(/q{\d+)=(\w+)/){ 

($qnum,$val) = ($1,$2); 

if ( $debug ) { addbody("$qnum => $val\n"); } 

if ($val eq "yes") { $answers[$qnum] = 1 ; } 

if ($val eq "sometimes") { $answers[$qnum] = .75; } 

if ($val eq "maybe") { $answers[$qnum] = .45; } 

if ($val eq "unknown") { $answers[$qnum] = .2; } 

if ($val eq "no") { $answers[$qnum] = 0; } 

} 

if ( $n =~ /R=yes/ ) { $answers[$qnum] = -1 ; } 

} 

} 

sub read_dat_file { 
local ($number_of_questions,$number_of_conditions,$max_lev) = (0,0,0); 
local ($line,$condition_name,$factors) = (-,-,-); 

local ($qnum,$qlevel,$depend,$help_ref,$question,$current_header) = (0,0, M " ) m 7 ,, 7 m ); 

open(DAT, M <$cgi_name.dat") || dieftest.dat unreadable\n"); 

@dat = <DAT>; 

close(DAT); 

foreach $line (@dat) { 
if ( $line / A "([ A "]+)",("\d+"/ I \d+",.*)$/ ) { 
if ( $debug ) { addbody("\n<br>condition line: $line"); } 
($condition_name , $line) = ($1,$2); 
$number_of_conditions++; 
$line s/7/g; 
©factors = split(/,/,$line); 

foreach $n (1..$#factors) { $factors[$n] = "q$n=$factors[$n] n ; } 
Sfactors = join(",",@factors); 
$condition{$condition_name} = $factors; 

if ( $debug ) { addbody("\%condition $condition_name = $factors"); } 

} 

elsif ( $line / A (\d+) (\d+) (\d+[+-]*) (^ w+ ) ( *V ) { 
if ( $debug ) { addbodyfquestion line: $line"); } 
($qnum,$qlevel,$depend,$help_ref,$question) = ($1,$2,$3,$4,$5); 
$q[$qnum] = join("xyzzy",($qnum,$qlevel,$depend,$help_ref l $question,$current_header)); 
$number_of_questions++; 
if ( $qlevel > $maxjev ) { $max_lev = Sqlevel; } 

} 

elsif ( $line =- / A H (.*)/ ) { $current_header = $1 ; } 
else { 

if ( $debug ) { addbodyfunprocessed line:\n$line\n n ); } 

} 

} 

if ( $debug ) { 
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* • 

addbody("number_of_questions = $number_of_questions, number_of_conditions = 
$number__of_conditions t maxjev = $max_lev\n n ); 
} 

($number_of__questions,$number_of_conditions ( $maxjev); 

} 



### Cookies //////// 

sub get_state_from_cookie { 
local ($qnum) = @_; 
local ($first,$qlevel) = (1,1); 

$env_cookie = $ENV{HTTP_COOKIE}; 
if ( $debug) { 

addbody("env_cookie = $env_cookie \n M ); 

addbodyfcookiefilter = $answercookiefilter \n n ); 

} 

if ( $env_cookie =~ /$answercookiename=($answercookiefilter)/ ) { Scookie = $1; } 
if ( $env_cookie =~ /$levelcookiename=(\d+)/ ) { Sqlevel = $1 ; } 
if ( $debug ) { addbody("filtered cookie = $cookie\n"); } 
if ( $cookie ) { 
©answers = split(/:/, $cookie); 

until ( ($answers[$first] == -1) || ($first > 80) ) { $first++; } 

} 

else { 

foreach $n (1..$qnum) { $answers[$n] = -1; } 
$first = 1; 

if ( $debug ) { addbodyfinitialized $qnum answers to -1\n"); } 

} 

($first,$qlevel); 



### HTML stuff ### 

sub get_question_html { 
local ($name,$question ( $help,$default) = @_; 
local ($html t $yeschecked, $nochecked) = ("","",""); 

if ( Sdefault eq "yes" ) { $yeschecked = "SELECTED"; } 
if ( Sdefault eq "no" ) { $nochecked = "SELECTED"; } 

Shtml = "\ 

<TD ALIGN=\"CENTER\">\ 
<SELECT NAME=\"$name\">\ 
<OPTION $yeschecked VALUE=\"yes\">Yes\ 
<OPTION VALUE=V , sometimes\ n >Sometimes\ 
<OPTION VALUE=\"maybe\ M >Maybe\ 
<OPTION VALUE=\"unknown\ n >Don\'t remember\ 
<OPTION Snochecked VALUE=\"no\ M >No\ 
</SELECT></TD>\ 

<TD>$question<a href=\7igotpain/$cgi_name/$help.html\" TARGET=\ M reference\ n >(help)</a><n"D>\ 
\n"; 

return($html); 
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} 

sub addbody { 
push(@body_lines, @_); 

} 

sub printtitle { 
local ($title) = @_; 

print n <TITLE>$title</TITLE>"; 

} 

sub printbody { 
print "<BODY>"; 
if ($debug) {print "<PRE>";} 
print @body_lines; 
if ($debug) {print "</PRE>";} 
print "</BODY>"; 

} 

sub printhtml { 
print "<HTML>\n"; 
&printtitle("$html_title"); 
&printbody; 
print "</HTML>\n"; 

} 

sub printheader { 
local ($cookie,$qlevel) = @_; 

print "Content-type: text/htm l\n"; 
print "Set-Cookie: $answercookiename=$cookie\n"; 
print "Set-Cookie: $levelcookiename=$qlevel\n"; 
print ,f \n"; 

} 
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